﻿Imports CommonLayer
Imports DataAccessLayer

Public Class BLINOutward
    Inherits BLBaseBusiness

#Region "Declaration"

#End Region

#Region "Property"

#End Region

#Region "Constructor"

#End Region

#Region "Get Method"

#End Region

#Region "CRUD"

#Region "InitNewRow"

    Public Overrides Function InitNewMasterRow(Optional ByVal strID As Object = Nothing) As DataRow
        Dim dr As DataSetINOutward.INInwardRow = Nothing
        dr = dtBusiness.NewRow
        With dr
            .RefID = IIf(strID IsNot Nothing, strID, Guid.NewGuid)
            .RefDate = Date.Today
            .RefType = RefType.SaleInvoice
            .RefNo = Me.GetNewRefNo(RefType.SaleInvoice)
            .TotalAmount = 0
            .TotalDiscountAmount = 0
            .TotalTaxAmount = 0
            .Posted = False
        End With
        dtBusiness.Rows.InsertAt(dr, 0)
        Return dr
    End Function


#End Region

#End Region

#Region "Private Method"

#End Region

#Region "Other Method"

    Public Overrides Sub InitPublicObject()
        'oDLBusiness = New DL.DLCAPayment(BLCommonFactory.DatabaseConnectName)
        oDLBase = New DLINInward(BLCommonFactory.DatabaseConnectName)
        oDLBusiness = oDLBase
    End Sub

#End Region
End Class
